1 REM ** CALCULATE SIMM-SIZE
2 REM ** BY WOLFRAM SANG FOR GO64!/CW
3 REM **
110 FOR I=0 TO 4:READ R(I),C(I):NEXT I
115 :
120 T=PEEK(53883)
125 :
130 PRINT"[147]$D27B(53883) RETURNED:"T
131 IF T>4 THEN PRINT:PRINT"NO SUPERRAMCARD FOUND!":END
135 :
140 PRINT:PRINT"SIMM-TYPE:"R(T)"/"C(T)
145 :
150 NC=2^C(T)
160 PRINT:PRINT"NUMBER OF CELLS: 2 ^"C(T)"="NC
165 :
170 LR=NC*4
180 PRINT:PRINT"LENGTH OF A ROW:"NC"* 4 ="LR
185 :
190 NR=2^R(T)
200 PRINT:PRINT"NUMBER OF ROWS: 2 ^"R(T)"="NR
205 :
210 B=LR*NR:MB=B/(1024*1024)
220 PRINT:PRINT"TOTAL:"LR"*"NR"="B"("MB"MB )"
230 END
997 :
998 REM SIMM-DATAS (ROW, COLUMN)
999 :
1000 DATA 9,9  : REM  CASE T=0
1010 DATA 10,10: REM  CASE T=1
1020 DATA 11,10: REM  CASE T=2
1030 DATA 12,10: REM  CASE T=3
1040 DATA 11,11: REM  CASE T=4